home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / HTMLEXTPrefs < prev    next >
Text File  |  2000-04-19  |  7KB  |  228 lines
  1. G4C
  2. ; $VER: HTMLEXTPrefs Rev.015 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 400 280 "HTMLEXT Einstellungen"
  4. WinType 11010000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7.  
  8. xOnLoad
  9.     lvuse HTMLEXT 101
  10.  
  11.     EXTRACT %Screen CLEAN screen
  12.     Update #This 1 $screen
  13.  
  14.     EXTRACT %Browser CLEAN browser
  15.     Update #This 2 $browser
  16.  
  17.     EXTRACT %BrowserWin CLEAN browserwin
  18.     Update #This 12 $browserwin
  19.  
  20.     EXTRACT %Editor CLEAN editor
  21.     Update #This 3 $editor
  22.  
  23.     EXTRACT %EditorWin CLEAN editorwin
  24.     Update #This 13 $editorwin
  25.  
  26.     EXTRACT %Mailer CLEAN mailer
  27.     Update #This 4 $mailer
  28.  
  29.     EXTRACT %Winbg CLEAN bg
  30.     Update #This 5 $bg
  31.  
  32.     EXTRACT %Tcp CLEAN tcp
  33.     Update #This 6 $tcp
  34.  
  35.     EXTRACT %TcpIf CLEAN tcpif
  36.     Update #This 7 $tcpif
  37.  
  38.     EXTRACT %Os CLEAN pos
  39.     if $pos = "35"
  40.         Update #This 8 "1"
  41.         SetVar os "35"
  42.     else
  43.         Update #This 8 "0"
  44.         SetVar os "31"
  45.     endif
  46.  
  47.     EXTRACT %User CLEAN user
  48.     Update #This 9 $user
  49.  
  50.     EXTRACT %ScreenOpt CLEAN screenopt
  51.     Update #This 11 $screenopt
  52.  
  53.     EXTRACT %Admin CLEAN padmin
  54.     if $padmin = "1"
  55.         Update #This 10 "1"
  56.         SetVar admin "1"
  57.     else
  58.         Update #This 10 "0"
  59.         SetVar admin "0"
  60.     endif
  61.  
  62.     EXTRACT %ScreenOpt CLEAN screenopt
  63.     Update #This 11 $screenopt
  64.     GuiOpen #This
  65.  
  66. xOnClose
  67.     GuiWindow HTMLEXT RESUME
  68.     GuiWindow menu.Sites RESUME
  69.     GuiWindow #This RESUME
  70.  
  71. Text 102 2 290 15 "(Vorgabe: HTMLEXT, andere Namen bitte nur eintragen, wenn diese auch" 80 NOBOX
  72.     GadFont xHelvetica.font 9 000
  73. Text 102 10 290 15 "existieren! Die Optionen gelten nur bei HTMLEXT als Screen!" 60 NOBOX
  74.     GadFont xHelvetica.font 9 000
  75.  
  76. xTextIn 100 25 80 18 "PubScreen Name:" screen "" 155
  77.     GadID 1
  78.     GadFont "xHelvetica.font" "11" 000
  79.     GadHelp "Die Optionen sind nur gültig, wenn HTMLEXT als Screenname gewählt wird!"
  80.  
  81. xTextIn 245 25 125 18 "Optionen:" screenopt "" 155
  82.     GadID 11
  83.     GadFont "xHelvetica.font" "11" 000
  84.     GadHelp "Optionen sind: Entweder DEPTH wie 16, oder WIDTH/HEIGHT/DEPTH/HexMode"
  85. xButton 372 25 18 18 "»"
  86.     GadFont "xHelvetica.font" "11" 000
  87.     CLI 'rx htmlext:mod/htmlext.smod GETSCRMODE'
  88.     Update #This 11 $.htmlext.tmp
  89.  
  90. xTextIn 100 45 272 18 "Win. Background:" bg "" 155
  91.     GadID 5
  92.     GadFont "xHelvetica.font" "11" 000
  93. xButton 372 45 18 18 "»"
  94.     GadFont "xHelvetica.font" "11" 000
  95.     ReqFile -1 -1 250 500 "Bitte Fensterhintergrund wählen ..." FILE bg "HTMLEXT:gui/bg/"
  96.     Update #This 5 $bg
  97.  
  98. xTextIn 100 65 272 18 "Browser Plugin:" browser "" 155
  99.     GadID 2
  100.     GadFont "xHelvetica.font" "11" 000
  101. xButton 372 65 18 18 "»"
  102.     GadFont "xHelvetica.font" "11" 000
  103.     ReqFile -1 -1 250 500 "Bitte Browser Plugin wählen ..." FILE browser "HTMLEXT:mod/Browser/"
  104.     Update #This 2 $browser
  105.  
  106. xTextIn 100 85 272 18 "Browser Win.:" browserwin "" 155
  107.     GadID 12
  108.     GadFont "xHelvetica.font" "11" 000
  109. xButton 372 85 18 18 "»"
  110.     GadFont "xHelvetica.font" "11" 000
  111.     if $browser == "htmlext:mod/browser/aweb.mod"
  112.         cli 'rx htmlext:mod/htmlext.smod WINAWEB'
  113.         if $.htmlext.tmp != -
  114.             SetVar *BROWSERWIN $.htmlext.tmp
  115.             SetVar browserwin $.htmlext.tmp
  116.             Update #This 12 $.htmlext.tmp
  117.         endif
  118.     elseif $browser != "htmlext:mod/browser/aweb.mod"
  119.         EZREQ "Sorry, z.Zt. ist diese Option nur für AWeb 3.3 Benutzer!" "Weiter" NIL
  120.     endif
  121.  
  122. xTextIn 100 105 272 18 "Editor Plugin:" editor "" 155
  123.     GadID 3
  124.     GadFont "xHelvetica.font" "11" 000
  125. xButton 372 105 18 18 "»"
  126.     GadFont "xHelvetica.font" "11" 000
  127.     ReqFile -1 -1 250 500 "Bitte Editor Plugin wählen ..." FILE editor "HTMLEXT:mod/Editor/"
  128.     Update #This 3 $editor
  129.  
  130. xTextIn 100 125 272 18 "Editor Win.:" editorwin "" 155
  131.     GadID 13
  132.     GadFont "xHelvetica.font" "11" 000
  133. xButton 372 125 18 18 "»"
  134.     GadFont "xHelvetica.font" "11" 000
  135.     if $editor == "htmlext:mod/editor/golded.mod"
  136.         cli 'rx htmlext:mod/htmlext.smod WINGOLDED'
  137.         if $.htmlext.tmp != -
  138.             SetVar *EDITORWIN $.htmlext.tmp
  139.             SetVar editorwin $.htmlext.tmp
  140.             Update #This 13 $.htmlext.tmp
  141.         endif
  142.     elseif $browser != "htmlext:mod/editor/golded.mod"
  143.         EZREQ "Diese Option ist nur für GoldED Benutzer!" "Weiter" NIL
  144.     endif
  145.  
  146. xTextIn 100 145 272 18 "E-Mailer Plugin:" mailer "" 155
  147.     GadID 4
  148.     GadFont "xHelvetica.font" "11" 000
  149. xButton 372 145 18 18 "»"
  150.     GadFont "xHelvetica.font" "11" 000
  151.     ReqFile -1 -1 250 500 "Bitte Editor Plugin wählen ..." FILE mailer "HTMLEXT:mod/Mailer/"
  152.     Update #This 4 $mailer
  153.  
  154. xTextIn 100 165 272 18 "TCP/IP Plugin:" tcp "" 155
  155.     GadID 6
  156.     GadFont "xHelvetica.font" "11" 000
  157. xButton 372 165 18 18 "»"
  158.     GadFont "xHelvetica.font" "11" 000
  159.     ReqFile -1 -1 250 500 "Bitte Editor Plugin wählen ..." FILE tcp "HTMLEXT:mod/Network/"
  160.     Update #This 6 $tcp
  161.  
  162. xTextIn 100 185 100 18 "Interface Name:" tcpif "" 155
  163.     GadID 7
  164.     GadFont "xHelvetica.font" "11" 000
  165.     GadHelp "Interfacenamen muss angegeben werden, falls MiamiDX benutzt wird ..."
  166.  
  167. xTextIn 100 210 180 18 "Benutzer:" user "" 155
  168.     GadHelp "Bitte leer lassen, falls der MultiUser Modus aktiviert sein soll!"
  169.     GadID 9
  170.     GadFont "xHelvetica.font" "11" 000
  171.  
  172. xCheckbox 372 210 18 18 "AmigaOS 3.5+" os "35" "31" OFF
  173.     GadHelp "Anwählen, wenn Ihr Amiga mit AmigaOS 3.5 oder besser ausgerüstet ist ..."
  174.     GadID 8
  175.     GadFont "xHelvetica.font" "11" 000
  176.  
  177.  
  178. xCheckbox 100 255 18 18 "Immer Admin M." admin "1" "0" OFF
  179.     GadHelp "Anwählen, wenn der Admin Modus immer aktiv sein soll ..."
  180.     GadID 10
  181.     GadFont "xHelvetica.font" "11" 000
  182.     SetVar *ADMIN $admin
  183.  
  184. xButton 185 255 100 20 "_1 Speichern"
  185.     GadFont "xHelvetica.font" "11" 000
  186.     GadKey "s"
  187.     lvuse HTMLEXT 101
  188.     lvdel -1
  189.     lvadd ''
  190.     %Screen = $screen
  191.     %ScreenOpt = $screenopt
  192.     %Browser = $browser
  193.     %BrowserWin = $browserwin
  194.     %Editor = $editor
  195.     %EditorWin = $editorwin
  196.     %Mailer = $mailer
  197.     %Winbg = $bg
  198.     %Tcp = $tcp
  199.     %TcpIf = $tcpif
  200.     %Os = $os
  201.     %Admin = $admin
  202.     %User = $user
  203.     lvsave "htmlext:Settings/htmlext.prefs"
  204.     EXTRACT screen CLEAN *SCREEN
  205.     EXTRACT browser CLEAN *BROWSER
  206.     EXTRACT browserwin CLEAN *BROWSERWIN
  207.     SetVar .htmlext.brwin $*BROWSERWIN
  208.     EXTRACT editor CLEAN *EDITOR
  209.     EXTRACT editorwin CLEAN *EDITORWIN
  210.     SetVar .htmlext.edwin $*EDITORWIN
  211.     EXTRACT mailer CLEAN *MAILER
  212.     EXTRACT viewer CLEAN *VIEWER
  213.     EXTRACT tcp CLEAN *TCP
  214.     EXTRACT tcpif CLEAN *TCPIF
  215.     EXTRACT os CLEAN *OS
  216.     EXTRACT screenopt CLEAN *SCREENOPT
  217.     GuiWindow HTMLEXT RESUME
  218.     GuiWindow #This RESUME
  219.     GuiQuit #This
  220.  
  221. xButton 290 255 100 20 "[_X] Abbrechen"
  222.     GadFont "xHelvetica.font" "11" 000
  223.     GadKey "x"
  224.     GuiWindow HTMLEXT RESUME
  225.     GuiWindow #This RESUME
  226.     GuiQuit #This
  227.  
  228.